home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / AUDIO / MIDICOM2 / MIDICONS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-30  |  1KB  |  43 lines
  1. { $Header:   G:/delphi/midi/vcs/midicons.pas   1.1   30 Apr 1996 19:04:40   DAVEC  $ }
  2.  
  3. { Written by David Churcher <dchurcher@cix.compulink.co.uk>,
  4.   released to the public domain. }
  5.  
  6.  
  7. { MIDI Constants }
  8. unit Midicons;
  9.  
  10. interface
  11.  
  12. uses Messages;
  13.  
  14. const
  15.     MIDI_ALLNOTESOFF = $7B;
  16.     MIDI_NOTEON          = $90;
  17.     MIDI_NOTEOFF         = $80;
  18.     MIDI_KEYAFTERTOUCH   = $a0;
  19.     MIDI_CONTROLCHANGE   = $b0;
  20.     MIDI_PROGRAMCHANGE   = $c0;
  21.     MIDI_CHANAFTERTOUCH  = $d0;
  22.     MIDI_PITCHBEND       = $e0;
  23.     MIDI_SYSTEMMESSAGE   = $f0;
  24.     MIDI_BEGINSYSEX      = $f0;
  25.     MIDI_MTCQUARTERFRAME = $f1;
  26.     MIDI_SONGPOSPTR      = $f2;
  27.     MIDI_SONGSELECT      = $f3;
  28.     MIDI_ENDSYSEX        = $F7;
  29.     MIDI_TIMINGCLOCK     = $F8;
  30.     MIDI_START           = $FA;
  31.     MIDI_CONTINUE        = $FB;
  32.     MIDI_STOP            = $FC;
  33.     MIDI_ACTIVESENSING   = $FE;
  34.     MIDI_SYSTEMRESET     = $FF;
  35.  
  36.     MIM_OVERFLOW         = WM_USER;    { Input buffer overflow }
  37.     MOM_PLAYBACK_DONE    = WM_USER+1; { Timed playback complete }
  38.  
  39.  
  40. implementation
  41.  
  42. end.
  43.